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Episodul 5. LICEUL DE INFORMATICA 


Anunțâm pe toți prietenii nostrii, care 
vor să se înscrie în Club, că îi 
așteptăm în fiecare simbată, ora 7], la 
liceul de Informatică (lingă piata 
1 Mai — autobuz 300 din Piata Romană 
sau tramvaiul 3). 

Taxa de inscriere este de numai 100 
lei. Vă rugăm să aduceti si 2 poze tip 
buletin. 

Cei din ţară se pot înscrie în CRC 
ca membrii corespondenti. li rugăm să 
se adreseze in scris la: 


CRC 
casuța postala 3/7-131 
Bucuresti 


90000000000000000000000000000000004 












Lj 
Anca Radovici 





Sir Clive Sinclair. 

(cei care a creat computerul cel mai vind în 
Marea 
- Nu am nici un computer în casă mea și nicinu am 
nevoie de vreunul 

Adam Osborne 

(creatorul mocro-compiuneniui de mare succes, 
- intr-un cămin obișnuit, un computer își poate găsi 
foarte puţine întrebuințări, în afară de aplicațiile 
comerciale și profesionale. 


Un cb din Mneapols pentu PC, Amiga sau 


Carol! Shair Commodore. 

(Creatorul jocului 'best-sefer” River-Raid) Dispune și de un magazin, la care puteți comanda. 
Nu cred artera rigide are nevoie eu) (nu în lei, normal...) 

rea i aa iC Ei se ca L< pa Da DA DA DA PA DA Da 
a-l folosi 


Mr. Ronal Raayen 
John Haisbitt 
(autorul cărți  pro-computer de succes Hazepad. 5 


Mogatendne) mi de ce neva sia | NL 8309.AX. Tollebeek 


cumpăra un computer personal Holand (Pays - Bas) 
Nu se poate spune ca nu ati fost Da bd Ed pă Ed ba ba ps bă 
preveniti ! Ac aiia Suie este adresa pr numărul trecut. 
( Derek Rowmtree - Who Need a tome Computer) ceccar de SPECTRUM și dorește să are cu 
soft gel pe țara noastră, 


D0900090000O00O0OOOO | Seriei (în engeză, horrma) Și nu veii regreta. 
La Tulcea a luat ființă un cerc de informatică. AOAR fifth abia 


Dei păcate ati cea a iu! Retea apă S8 A rugetusă NUMAI PRIN ABONAMENT 


GOOOASOODOOOOGAO8E PUTETI FI SIGURI 
30-0-9-3-3-0-00-0-0-00-0-03-3-33-5-539 DE INTREAGA 
Continuam sa publicam adrese COLECTIE 


la care puteti scrie pentru soft: ***HobBIȚ *** 





9. Variatălete e sistem 

Variabiele marcate cu ”!" pot distruge sistemul de 
A lee im the * * poate fi uti să fie 
modificate. 


Semnificații 















5C00 | Bai Bufer intrare tastatura (Spectrum) 

SCOB 1% Ultima tasta apasata 

SCOC 2% 

SCOE 2* 

SC 1 pile de timp pentru cipirea 

SCN 1 rimele de repetari 3 

SC ! si 

5cuU 1% Controlorul de clipire al cursorului 

5Cc5 2 * Pozitia de rr aorlrizde în memoria video 

SCT7 1% Coloana de tiparire 

5C%B 1% de tiparire 

5C39 2! Stiva OPUS-ulu _ e 

SCB 1 Numarul comenzi de tiparire 

5C%K 2 indicatorul tabelei de simboluri 

SCE 2% Adresa de start a fisierului sursa 

5C20 2 Adresa de sfirsit fisierului sursa 

5C22 2 indicator de listare a fisier sursa 

5C24 2 Nr. inii state inainte de pauza 

S5C26 2 Lungimea liniei sursa de introdus 

5C28 1 Marcheaza un anumit Să 

5C23 2 Adresa ORG=ului 

5C2B 2 Deplasarea DIST-ului 

5C2D 2 Adresa ultimului ENT 

SC2F 1% Nr. de parametri dintr-o comanda 

5030 2% Parametrii in curs de executie 

5C32 2* -//- 

SC3A 2* -44- 

5C36 1% flafa de transfer peniru imprăn. 

5C38 1% BORDCR | Culoarea borderului 

5C33 1% PATIR Octet de atriturt pentru ecran 

5C3A LE: FLAGSI indicator pentru OPUS 

SC3R 1! FLAGS indicatori pentru tastatura 

SCI 2 DSTART | Adresade start a dezasantdaruha 

SC3E 3 CBYTE Meomortaza comă 

SC4 1 MODE Flaguri tastatura (SPECTRUM 

5C42 2 CATADA | Adresa curenta a dezasamnbtorisfui 

5C44 2 LASTA Ultima adresa a dezasamblorului 

546 12 * REGSAV | Registrele rar c, DE, H AF, 
IX, ie, BC, DE, ai, PC, SP) 

SCGA ÎI FLAGS2 | Extensie flzauri 

5C6B 2 SPRH Continutul uzual al reg. SP 

SC6D 1 SRL Continutul crzual al ras, i 

SCGE 1 RSAUL Continatii uzura) a reg. 

SC6F 7 Î- RERE Aresa de intoarcere dm subrutiia 

5C7 1 DFLAG Flapsri pentru dezasamblor 

5C72 2 PTXT Text puntar pi, dezasambloe 

5C74 2 PTBUF Pointesnă BIUFFLR dezasambior 

5C76 2 POBUF Alti pointeri 

507% |! 2% FRAMES | Contor frames (SPECTRIIM) 

“CT7B 2% 1 WSERAOD | Aetreva comereanutiizutur 

(70 | 2 | LMRTXT, N. liniei textutui dezasambtat 

SC 77 az  COPE ; Buffer le lucru peantru OPUS, 

SCAA 42% | DNRUFF :  Butfer derivare al OPiiS-uui 


EMIL MATARA 


10.Subrutine OPUS utie 

Mai departe prezentăm citeva subrutine ale 
OPUS-ului care vor fi descrise ca funcționare și 
spitimg big Aa P range a ao dec 
utăzator. 

Ca menţiuni de intrare trebuie văzut ce regstri 
trebuie aa și cu ce valori, pentru o funcţionare 
corect 


La terminarea intrări se specifică ce registri s-au 
modificat în urma rutării subrutinei și ce alți registri au 
fost istruși în urma procesării. 


10.1Subrutina afișare pe ecran 


PRTOUT 10010 
- afişează conţinutul registrului A în poziţia curentă 
de afipare (V = 45C3A) 

intrări : A=codul ASCI al caracteruki ce trebue 
afișat. 
- Șt — 
- distruge: — 


PRTMES 10030 

- afișează mesajl care umează subrutinei RSI, 
PRTMES și care se termină cu octetul 400 
- input: -— 

- output: — 

- destroy: — 

PRIBLK  /O00AC 

- afişează blank 

- input: — 

-- output: A = 820 

- destroy: A 


PRTCR 40080 
- afișcază întoarecerca car. 


- mput: -— 
- Outpart A = 400 
- destroy: A 


IRTOL 40085 
- şterge mia curentă prin afișarea cout 40/ 


- input: - 
- OUtpUT: Ata 47 
PMSIE  1t0OB9 


- afişează mesaai pumxitat de FU. și 
octetule 400, 

- input: H_ acresa de start a urata, 

= CXIDut: --— 

- destroy. H, AF 


conține tul 


.......cncccenenoesecesneesenoanocoeeaeneneceeeeeeeereoesoe. 


CLS 42DFB 
- Şterge ecranul cu poziționarea cursonuhi în colțul 
din stinga sus 


- afipează memoriei indicate de DE, în hexa, 
urmât de un blanc 
- input: DE = indicator spre locația cle mmemorie (_SB) 
- output — 
- destroy: H, DE, AF 
PRITA 40000 A 
- tipărește conținutul regsinăi A în reprezentare 
- input: A = octet de tipărire 
- output — 
- destroy: AF 


ABIT  100E3 
- tipăreşte conținuhi regsinâi A în reprezentare 


- input: A = octet tipărit 
- output — 
- destroy: BC, AF 
tipăreşte conținutul hi H_ în zecimal fără zerouri 
nesemnificative în față şi termină cu un blanc. 
= input: H = număr 
- destroy: C, AF 


CONVE  M00OFE 
- ca şi CONVO, dar cu zarouriie nesemnificative 


..... .............cncnenennnnnnenna..... 


.............cc.cnvcccccoenecoeneveneso..... 





- antput A = numănd convertit 
- destroy; AF 


HNTESI 0098 
iaca ele ae a tal A tă atat 


- put A = Ze ASCI ai rel 
- output; A = căfra haxa; CY = 1 chacă codul rau este ai 


- destroy: AF 


( 

- iput A = coc 

- output CY = 1 dacă testul a opimt 
- destroy: cy 


BCHST 


output: A = codul ASCI al tastei apăsate 
destroy: DE, BG, AF 


KEYBRD 143047 





105Lucruj cu caseta 


SAVE  %04C2 
= pepene (anca Ş9 ca <a camee, 


LOAD 
- input A = octet de 
DE 


- dacă sunetui este comutat (bitul 2 ai ia toba 


= PARAM 3 
-destroy: H, DE, BC, F 


pi 
ii 
E] 
A: 
i 


sh 
şi 
| 


: t, imgimea sa 
tă în header şi adresa de încărcare 
autorulare în cazul unui program BASIC. 

Ca tip putem întini următoarele: 
P - program BASIC 
N - date numerice în matrice 
S - date alfanumerice în matrice 
urla ar I-a dorit iert Lor 


ERROR ” 
fișierului cu semnul ' '.Acestiucru survine dacă e 
detectată o eroare de încârcare, dacă iungimea 





" VE ” semnalează în acest mod o eroare la 
verificare. Cu tasta "BREAK (SPACE) se poate opri 
mocii încărcare, 
Dacă nu a fost indicat rici un mod, avem opțiunile: 
- ieşire în pagina inițială OPUS 
comută baza de încărcare între zecimal și hexa 
comută păcănitui On/OFf 


O ZWwo0 
[RE 38 ; 


M - se oferă o memorie iberă de 48 Ko - 2 octeți, 
dar se poate încărca un singur fișier, fără header. 
Erorile de în cărcare vor fi semnalate prin bizittui 
specific de eroare. După încârcare, în acest mod 
avem următoarele opțiuni 

C - copiază fișierul încărcat 

N - încarcă alt fișier 

O - se iese în pagina inițială OPUS 


ANEXA 2. Cuvinte rezervate 

A G D; DISP HALT; LD; ORG POP; RLCA; 
ser; Z HG CALL: DAAD : HL: DX; LD OTDR; 
PUSH RLD: SET; ADD, E 4 VW; M OTR 
E i SA e rtcăa li Mat d 
RETi Fa, Se, OPb, Dart, FN EQU; NG L; 
E 7 1 rea SA CA i te 
CE NNzi pei MA RSI: Vi BIT; CPL; DL; H NE 
LDDR, OR, PO; RLG SBG XOR 


acest serial , acum shnteți 

folosiți OPUS-uUL Ați învățat 38 de comenzi și 15 
caractere de control 

in versiurie noi, în OPUS sint incâme și cîteva 


în măsuri să 


WORDS - un convertor de filă sursă OPUS-WORDSTAR 
STARS - un convertor de ftă din WORDSTAR-OPUS 
Pentru utiizatori de COBRA, există IIDCOM 
Situatia 7 ara DORI alR.ia varucane 
figiereior de pe casetă pe şi invers. 


Oare ce Suiciiare sau ivirea cin dama de 
valori permisă 
3 - se așteaptă ')" 
4 - se așteaptă ." 
5 - eroare de context 
6 - simbol redefinit 
7 - se așteaptă ” ( 
8 - mrernonică 
9 - etichetă 
SFIRȘIT 

DI tvavavă 1 

Această  facătatea Ma sau mai pu: 
importantă a OPUS-udu ce logătura dintre 
şi cod-mașină din păcate transparentă 
utitzatonăi 

Nainciuderea decodorului în menki principal ai 


începătorilor, dar nu numai neinciudere ci și 

ipea de documentație a “chei de accea la acest 
, Această cheie este o comandă 

MONTOR-=udu de 2 executa adresa 3278 în 


- BASIC DECODER - 

Basic Start 

La apariția imagini, udizatoru vebule să 
programu AS în ra 
pr 

Decodorul poate fi folosit cînd la un pr: BASIC, 
datorită îmimpilări is-a antetul 

A Decodoru se sfirșituj 


*"**Sandu Mihai Eduard” 
ALIGATOR SOFT 


Mulţumim, ALIGATOR-SOFT. 





Limbaj masină 


hobBIT nr — ADC, AND, ASL 

hobBIT nr2 — BCC, BGC, BEQ. BMI.BNE 
BPL, BRK, BVC, CLC, CLD 
CLL CGLYV A 

hobBIT nr.3 — CMP, CPX, DEC, DEX.DEY 
EOR, INC. INX, INY 


JMP 
Jump to address LDA 
PC + Load accumulator 
Format A — DATA 
omonoo__| AoR | ADR piaaă 
AR A eg ERIE aa 5GE5O1_[ ADRIDATA_ [ADR 
indirectă. se introduce o nouă dată in acumulator. 
EM SIBI ID EROS CR LI 
RER E Codu comenzior: 
Absolut 1010101 HEX = AD 
bbb = Oti 
ADRESA Pagina Zero 10100101 HEX = A5 
bbb = 001 
(ABSOLUD EIMTĂLELISIREE Direct 10101001 HEX = A9 
bbb = 010 
Absolut, X 10101 HEX = BD 
bbb = îti 
Absolut, Y 10111001 HEX = B9 
bbb = A1 
(indirect, X) 10100001 HEX = Al 
bbb = 000 
(indirect, Y) 10110001 HEX = Bi 
bbb = 100 
Pagina Zero, X 10110101 HEX = B5 
bbb = 101 








Absolut 10101100 HEX = AC 
bbb = OH 
Pagina Zero 10100100 HEX = AA 
bbb = O0ti 
Direct HEX = A0 
bbb = 000 
Absolut, X 10111100 HEX = BC 
bbb = îti 
Pagina Zero, X 10110100 HEX = BA 
bbb = 101 
LSR 
<a arpeslad a, d 
o—[7|e]5]4]23|2|1|o 
X 
Format 
CIANOARI 


inciusiv OR with accumulator 
A+ (A) V DATA 
Format 


|000bbb01__|_ ADR__| ADR | 


Compară valoarea cin acumulator cu ” DATA ”. 





Fag N v B | Z Cc 
IPEE 1119) 
Cod comenzior: 
0000101 HEX = 0D 
bbb = Oti 
Pagina Zero 00000101 HEX = 05 
bbb = 001 
Direct 00001001 HEX = 09 
Absolut, X cd e HEX = D 
bbb = îti 
Absolut, Y 00011001 HEX = 9 
(ndrect, X) iri HEX = 01 
bbb = 000 Ea 
YI bbb = 100 
xx UA URA tite 


..... 


..... 
..... 
..... 
..... 
..... 


..... 
..... 


..... 
..... 
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IBM oferă un nou 
standard în domeniul 


NOR TON Utilities 


versiunea 6.0 


nu se te să nu fl auzi de acest utătar, care 
. multiple facătăți de a recupera 3 
distruse sau Ă i este mult mai 


„amplă 
avertizează e 
Preţul de ivrare este de aprox. 179$. 


Mitsubishi oferă discul 
magneto-optic MKR5 


t 
-10 - 50C 


ee 


10 - 90% 
***Filorin Tancu 


Portul Video (VGA) 
Samsung VGA 


*** Catalin Florean"** 





Funoionarea interfeței 
pr de mai e, țamea “1 - Fără semnale de control. Pentru aceasta, 
is detineri „buci mc iegar înre de bora ed hal a 


IR 
2 R 
3R 
4R 
SR 
6 R 
7R 
8: 


799 : 


800 
810 
820 
830 
840 
850 
855 
860 
870 


REA 


RS-232 prezentată în număru 2/1991 al revistei poate fi verificată folosind 


EM Serra Iara RIELLILIrI 
EM + INTERTEST + 
EM * + 
EM + AUTOR: M. GAVAT + 
EM + E] 
EM + = CRC = + 
EM FEzIRRILLIIIRRIRREII 


GOSUB 800 
OPEN 1,2,0,CHR$(N1)+CHR$tN2) 
GETA1,D$ 
PRINT CHR$(147) 
PRINT SPC(16) CHR$(18) "EMISIE" CHR$(146) 
POKE214,11:P0KE211,0:8Y5 58732 
PRINT * * CHR$(18) " 
PRINT SPC(15) CHR$(18) "RECEPTIE" CHR$(146) 
E$=" "Tare 

POKE 214,5:POKE 211,0:8YS5 58732 

GET AS:1F A$="" THEN 110 

IF A$=CHR$(133) THEN CLOSEL:PRINT CHR$(147):END 
PRINT A$; 

IF AS=CHR$(17) THEN 250 

E$=E$+A$ 

BOTO 110 

PRINTEL,E$ 

GETE1,R$ 

IF R$=CHR$(13) THEN 420 

POKE 214,18:POKE 211,0:SY8 58732 

SR=ST:1F SR=0 OR SR=8 THEN 360 

IF SR AND 1 THEN PRINT "CEROARE PARITATEI":60T0 430 
IF SR AND 2 THEN PRINT "LEROARE STRUCTURAIJ":60T0 430 
IF SR AND 4 THEN PRINT"CEROARE BUFFER PLINI":60T0 430 
IF SR AND 128 THEN PRINT "(EROARE BREAK]":60T0430 
IF (PEEK(673)AND 1) THEN 340 

PRINT "CEROARE1":60T0 430 

T$=T$+R$ 

GOTO 270 

PRINT T$ 

GET AS:1F A$="" THEN 430 

IF ASC>CHR$(13) THEN 430 

GOTO 15 
PRINT CHR$(147):PRINT SPC(14) CHR$(18) "TEST RS-232" 
PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:N1=39:N2=0 
PRINTSPC(10)* 1 -FARA SEMNALE CONTROL" 
PRINT:PRINT:PRINTSPC(10)" 2 -CU SEMNALE CONTROL" 
GET A$:1F A$="" THEN 840 

IF A$="1* OR A$="2" THEN 860 
GOTO 840 

IF A$="1” THEN RETURN 
N2=33: RETURN 


DY. 


la 


“ CHR$(146) 


CHR$ (146) 


interfeței se 


ea ee Ce ses Pe ba a poa ai e ,e0 60 .Xi nai iu. a ax a a: are. 4.4. d: o ss.s.p.. 


Commodore 
Programe BASIC 
Autostartabile 
Mucea Gavăt 


execută automat programul respectiv. 
Utiăzatorii calculatorului Commodore 64/%P8 iși pot 
creea si Î BASIC autostartabie care 


$8000 
- adresele de start și coduie de reanoaștere. 
zei i ii 





după , E 
$8000-$97EC care conţine programul 





8000 byte 09 -adresa de statia rece 

8001 byte 80 

8002 byte 09  -adresa de start in caki 

8003 byte 30 £ 

8004 byte C3 -C 

8005 byte C2 -B' 

8006 byte CD -M' 

8007 byte 33 -8' 

8008 byte 30 -0'" 

8009 SE 

800A STX $DOG 

80%0 JSR $FDEO 

808 JSR $FD15 

8016 JSR $FF5B 

8019 CLU 

BOA JSR 9EA53 

80D JSR SEIF 

8020 JSR $803D  -Decalare program BASIC 

8023 LDX 4S$FB 

8025 TXS 

8026 LDA 4$52 - "RUN" în buffer de tastatura 

8028 STA $0277 

802B LDA 4$D5 

8020 STA $0278 

8030 SOD 

8032 STA $0279 

8035 LDA 4$03 

8037 STA $00C6 

803A JMP $E386  -Startiarece 

8030 LDA 4$64  -Adresa început prograin (LB) 

803F STA $005F 

8042 LDA 4$80 -Adresa început program (HB) 

8044 STA $0060 

8047 LDA 4$ (as) -Adresa sfirşit program (LB) 

8049 STA $O0OSA 

804C LDA 4$ (as) -Adresa sfirșit program (HB) 

B804E STA 

8051 LDA $(asd) -Adresa sfirșit program 
decalat în zona BASIC 

8053 $0058 

8056 STA $002D -setare it BASIC (LB) 

8059 LDA 4$ (asd) -Adresa program 

t în zona BASIC (8) 

805B STA $0059 i 

805E STA $ 002E -Setare sfirșit BASIC B) 

8061 JMP SŞAZEF  -Saltia rutina de decalare 








The Secrst of Monkey 
Island 


Dan Patriciu 


vă speriați, nu v-am trădat, deși arti- 
LOOM din muamănul trecut 
nu m-a apar frut. De această dată vă prezint "The 
Secret of Monkey Islanct”, un “adventure” ce sparge 
toate topurie și continuă să ridice prestigiu firmei 
Lucasfim Games Lid 
Realizat în genu vestitelor "Maniac Manston', 'Zak 
Mckracken', jocul rulează pe toate plăcie grafice de 
PC (inclusiv Hercules), are o grafică deosebită, o 
realizare sonoră umitoare (Tandy, AdLib) și o idee 
care întrece orice închipuire ... OK, here we go.. 
Guybrush Threepwood, un tinăr aflat pe insula 
Helee, dorește să devimă piat în toată puterea 
cuvintutu. în acest sens, ei este sfătuit de către pă- 
zitorul fanuui (lookout) să meargă în 'Scunm Bar 
pentru a discuta cu pirați renumiți ai msulai, Aceștia îi 
spun despre cele 3 încercări pe care trebue să le 
treacă pentru a deveri pirat găsirea comori 
îngropate pe msua Helee, învingerea in kiptă alu 
“Sword Master” și furtul unui ” ldoto' Many Hands “ 
aflat în via guvernatoruki imsulei în primu rind, 
Guybrush trebue să facă rost de bani (frate 
Tettucini - circ) pentru a cumpăra o sabie, o lopată şi 
harta locului unde este ascunsă comoara (Guzen of 
Helece). De trob-i ce păzeşte anumite locuri pe msulă 
se poate scăpa dind peștele aflat în bucătăria 
bani Dacă este urmărit, moșu din magazin vă va 
conduce la Sword Master pe care îl veți provoca la 
duel (nu maine de a vă antrena contra cost ia 
maestrul de pe insulă şi de a opri o serie de prațţi 
vagabonzi pe drum pentru a vă bate și a învăța 
cele mai diverse înjurături) Prizonierul din închisoare 
(Otis) vă va da o prajtură cu morcovi în schimbul 
unui lucru pentru omorit șobolani din cekiă. Cu 
ajutorul acestei prăjturi se va fura idolo Many 
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Dar șeriful insulei nu este altul decit piratu-fantomă 

care o va răpi pe guvernatoare, lăsind în 

urmă 0 notă de avertisment pentu eventual aven- 
turieri ce s-ar angaja în urmărirea sa. 

Guybrush trebue să-și formeze un echipaj Sword 
Master, Otis - grogu gl le fig prirade dP și cingu 
dn New stand - rubber chicken. Cu creditul “obținut” 
de ta moș (atenţie la cifrul seifului) se cumpără nava 
“Sea Monkey” de la Stan, după indelungi tocmei Si 
iatăne ajunși în partea a doua a jocului (The 


Journey) dl E | ă 
Faimosul echipaj a ki Guybrush întră în grevă și 
acesta trebuie să se descurce singur. intr-o cutie cu 
cereale se găsește o rețetă. ingredientele aflate în 
această rețetă se vor amesteca în cazanul cin 
bucătărie. Ca prin minu%e, nava va lua o altă drecție 
şi după citeva zie se va opri în apropiere de 
Monkey Island. Repetind acrobaţia de la circ, veți fi 
proiectaţi pe o plajă a insulei 

Partea a treia, “On the Monkey island” este fără 
indoială cea mai complexă și grea de rezolvat 
Baraal trebue anmcat în aer iar fringhia trebue 
luată de la cel spinzurat pentru a ajunge pe fundu 
canion umde se găsesc visele necesare pentru a 
înconjura insula cu barca. Canibali îi vor da hui 
Gybrush culegătoru de banane al hui Herman Throt 
în schimbul unu idol aflat în fața capului gigantic de 
maimuță. De la Herman se va obține apoi cheia 
iepure ladă fo ate e Porte 
Navigation”, canibal vor da capul fără de care este 
imposbiă parcurgerea iabirintulu la sfirșitul căruia se 
află nava fantomă a hi LeChuck. Odată ajimși aici, 
implorați capul să vă dea saba de la git pentrrua 
deveni invizibii fantomelor. Apoi . . . cheia se ia cu 
ajutorul compasului magnetic, piratul se gidtă la tălpi 
cu pana, se îmbată, ușa se unge cu terci 
rifărnu unde se afla rădăcina magică contra fan 
tomelor se sparge cu vnelteje-fantomă. 

Clar, m? ... Oricum, ma mit nu vă mai spun 
pentru că urăsc articolele de tipul “'mură-n gură” 

Veţi afirmaţia dn finaku jocuku: "Never gve 
more than bucks for a game. Sper că pină la 
apariția rnumănuii vitor să fac rost de Monkey 
istannd îi (LeChuck's Revene) și să- termin pentru a 
vH putea prezenta. 

See ya soon, cool nice boyz'mrgalisi 


08 09 0 LU 2 Lc! 4 

1668 1703 1726 De 565 7593 
1614 63 O1649 1693 D777 1678 
1723 1717 1584 1628 1643 1553 
1692 1656 1567 1674 1662 1655 
7573 1665 1706 1506 1722 
1794 în 1609 1712 1542 
1652 1689 172 1697 1696 


RENEGADE & 

Penvu a avea vieţi infinite, după 
ce ivul jucător a acumulat 
minim 41000 je să se 


ase doborit Chd va introduce 
numele în top, va tasta 3 
caractere, apo va apăsa de D ori 
care ENTER. Va 


pelerini 
miopie 
periei secunde se va intra 
dn nou în joc din locul unde aţi 
fost dobortt. 
*** Sebastian Patrulescute* 


TETISSOFT 
Tîrgovişte 
DOOODOOOOOOO 


ARMY MOVES 


set BURNING CHROME == 
Bucureşt: 
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Obiectele dn Space Quest: 
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li: OPEN MATCH 


X : WNEonScI0US TREN > cos6D HATCH 


V : VINES jo LEADE, 0 % B 





E II Îs pe ia: 
A IL IEI e 
Ir | Î | ERE 
II LITERA * 
NR: LII | i 


Ti 


af e , i Ş 
i: Ne ae Re 





continuare din pag. 12 
Cum facem? 
pagina pentru incepatori 


1REM pr 8 - î53sec. 
10 POKE 255 
20 FOR A = 13 TO 600.3 

PRINT A; 


A 
1REM ogram 
10 FOR A = TO 1000 
20 LET MINERIADA = 10 
30 NEXT A 
Stabiind care sînt variabilele cei mai des folosite, 
acestea pot căpăta numele cele mai scute, 
n sfirșit, vedem în ce moduri se pot scrie 





Aţi văzut desigar că unde jocuri afișează screenu 
de instantaneu pe ecran, n, treptat ca la 
alte 


ecran 
astfet se încarcă screeru la altă 


se procedează 
adresă, fie ea X, după care se introduce următoarea 
LD HU, X ; adresa unde aţi încărcat 
10 BC, 69%  ; ingmea unu screen 
LOR ; instrucțiunea de transfer 
RET : intoarcerea în subrutină 
; apelanta 


READ A: POKE |, A: NEXT | 
DATA 33, Q1, Q2, 17, 0, 64, 1, 0, 27, 237, 


E oeauus 
: 
: 






ANDREI STERIOPOL 


SPECTRUM 
Incarcarea animată a 


ecranelor 


Andrei Steriopol! este din Bucuresti, 
elev ia Liceul Mihai Viteazu. 

Membru in CRC, a lucrat pe Spectrum. 
In prezent tinde spre PC, pe carei! 
cunoaste 'destul' de bine. 

Daca intilniti pseudo-virusul "HIV", 
sa fiti convinsi ca a trecut Andrei pe 
acolo. 

Alte hobby-uri: 

scufundarile (in apa ...) 


Muţi dintre caci ti pir aţi vazut Pasi pe 
calalatoare compatibile Spectrum car la 


Astfel 
patrăței de imagine (8X8 pixel) cu 1 octet de atribut 
şi 2 de adresă. 

Alăturat programe 


O Măi piu e d savai în roata 
de încărcare este prezentă în i în 


greșiți 


- caracterele vor fi salvate și încărcate pe ş 
(REV e pe Dani în o0sinee rea ceri sa 


S - salvează ecranu ( numai porțiunie marcate) pa 
bandă în format animat 
C - încarcă un ecran salvat în format animat 


Textul sursă se asamblează la adresa 65046 a 
directiva ” ORG 65046”. Vă recomand utăzarea 
asambloruiui GENS3M21 


Pr BASIC se introduce Cum este, finc 
Ia 0 IX) ONCE Imi apar arat VA rod a m 
şi icare 


incă ceva: acest editor grafic poate funcționa și 
Cal 481 Kemgaatari 0 )/8Lăc PANA pre 5 Cooper 
Pe text sursă subrutinele se aftă la următoare 


- 
Dic dci Ca 8 ae caci a dd înDâic ia, Că 

eczar sub frrna de bytes Br ograu să nu mal facă 
carea 


reincer incărcăriă, atunci omiteţi inia 
JR  ONGL 

la tastarea textului 
ORB 65A46 
LD HL, 1343 
FUSH HL 
INC D 
EX AF,AF 
DEC D 
DI 
LD A,%F 
DUT (4FE),A 
IN A, (4FE) 
RRA 
AND +20 
LD C,A 
CP A 


NZ 
EDGE 1 


RREAE. 
START 


CALCA 


CALC 


a Fe NC, BREAK FUSH 
LDH. 194% 
WAIT 
HL 
Ah 
l.. 
NZ WAIT MAREER 
EDGE? 
NC, EREAL: BITS 
B„t9C 
EDGE? 
NC, BREAK 
A, HCA 
B 
NC, START 
H 
NZ „LEADER 
B,„4CO 
EDGE: 
MC, BREAE: 
A,R 
+D4 
NC, SYNC 
EDGE1 SAMPLE 
NC 
MAREER 
CALC 
NC 
CALCA 
MAREER 


BC 
MARKER 
BC 

A,L 

HL. 

NC 


ri. 
MAREER 


NC 
E 

+20 

Z , SAMPLE 
A,C 

A 

420 

427 

Cc,A 


1X,32768 
DE,O 
A,4FF 
1218 








19 RUN 898 
15 LET A$=INKEY$ 


16 IF CODE A$>=97 AND CODE A$<=122 THEN LET A$=CHR$ (CODE As$- 


29 IF A$="P" OR IN 3i=i THEN 60 TO 109 
32 IF A$="1" OR IN 31=2 THEN 60 T0 208 
49 IF A$="0" OR IN 31=8 THEN G0 TO 389 
5Aa IF A$="z" OR IN 31=4 THEN 60 TO 469 
69 IF A$=" " OR IN 3i=i16 THEN 60 TO 479 
79 IF A$="U"“ THEN LET X=X1: LET Y=Yi: LET OLD=OLDL: GO TO 1598 
75 IF A$="C" THEN G0 TO 8598 
Sa IF Aş="Ss" THEN CLS: LET Q=M-32768+i: LEŢ QOQ=INT (W/256): 
POKE 65242,0-256*0Q: POKE 65241,00: 0UT 254,7: 890 SUB 9999: PRINT 
HO;AT 1,9; "Start tape then press any key.": PAUSE 8: INPUT ;: 
RANDOMIZE USR 65235 
85 IF A$="L" THEN 60 TO 800 
9a G0 TO 15 
199 IF X=31 THEN G0 SUB 1560: G0 TD 15 
195 LET X=X+1: 60 TO 1599 
2902 IF X=A THEN G0 SUB 1560: GOTO 15 
291 LET X=X-1l: G0 TO 1509 
30a IF Y=i1 THEN 60 SUB 1569: G0 TO 15 
381 LET Y=Y-1: G0 TO 1508 
A9a IF Y=24 THEN 60 SUB 1569: GO TO 15 
491 LET Y=Y+1: GO TO 1598 
499 IF OLD=PAS THEN G0 SUB 1568: G0 TO 15 
S9a LET X1i=X: LET Yi=Y: LET OLDI=O0LD: POKE M,X+A(Y,2): LET M=M+i 
5901 POKE M,A(Y,1): LET M=M+1 
522 FOR N=9 TO 7: LET ADC=A(Y,2)+X+2S56x (A(Y,1)+N) 
503 POKE M,PEEK ADC: LET M=M+i: NEXT N 
504 POKE M,OLD:LET M=M+1i: LET OLD=PAS: G0 TO 1509 
7998 CLEAR 32767: LOAD “load” CODE: CLS 
293 GO SUB 9109: PRINT AT 11,11;"START TAPE":  RANDOMIZE USR 
65248:60 TO 922 
859 GO SUB 9109: RANDOMIZE USR 659046 
999 DIM A(24,3) 
991 OUT 254,BOR 
993 LET M=32768 
995 LET X=0: LET Y=1: LET 0LDK=22528: LET OLD=PEEK 22528 
991 RESTORE 1968 
1999 FOR N=1 TO 24 
1919 FOR P=1 TO 3 
10290 READ S 
1939 LET A(N,P)=S 
1949 NEXT P 
1959 NEXT N 
1069 DATA 64,0,88 „64,32,88,64,64,88,64,96,88,64,128,88,64,168,88, 
&4,192,88,64, 224, 88 
1070 DATA 72,0, 89, 72 ,32,89,72,64,89,72,96,89,72,128,89,72, 169,87, 
72, 192,89,72,; 224, 89 
1080 DATA 82,0, 90, 890,32,90,89,64,90,82,96,92,80,128,90,80,162,90, 
22,192,90,20, 224, 99 
1spa LET ADK=A (V 2) +X+256*A(Y,3) 
1519 IF PEEK ADkK=0 THE 0UT 254,7,0UT 254,BOR 
1520 POKE OLDK,OLD 
1539 LET OLDK=ADk: LET OLD=PEEK ADk 
1549 PDKE ADK,CRS 
1559 G0 TO 15 
15690 FOR N=0 TO 23: OUT 254,N: OUT 254,2SS-N: NEXT N: 0UT 
254 ,BOR: RETURN —»_—— 





... .... ..... ......cc.ccccconaee. 


Azi 
9000 CLS: SAVE "load" CODE 63246, 185 

99a1 RETURN 

9102 INPUT "Border ?";BOR: INPUT "Cursor attribute ?";CRS: INPUT 

"Passed attribute ?";PAS: INPUT "Default paper ?";DEFPAP:  BORDER 

DEFPAP: PAPER DEFPAP: INK 9: CLS: 0UT 254 ,BOR: RETURN 

9999 SAVE "LOAD" LINE 799: SAVE "load" CODE 64046 255 





RET 

LOADSCR LD IX, 16384 
LD DE,6912 
LD A,4FF 
SCF 
CALL 1366 
JR NC, LOADSCR 
RET 


MASTERMIND 


200 FF INKEY$ = "5" THEN GO TO 300 
DIANA DOBRE | 2106070480 E 
LICEUL. DE INFORMATICA | 220 PRINT AT 0,4; "+ ALBASTRU AT 1, 

“2 - ROSU”; AT 2, 4; "3 - MAGENTA” AT 3, 4; 
"4 — VERDE”; AT 4, 4; "'5 - PURPURIU” 
AT 5,4;"6- ŞAT 6,4;'7-AB”; 
"O - NEGRU” 

240 PRINT AT 10, î$ "Calcutatorul pune un cerc 





250 
culori” 
260 AT 20, 5; “APASATI O TASTA 
270 PAUSE 0: CLS 
280 GOTO 160 
300 CLS 
310 LET V= îi 
330 Fo (lo 4 
340 LET XA) = INT (PND * 7) 
350 NEXT i 
10 BORDER & PAPER & KO ih 
20 LET A$=" (31 SPACE > LET b$= SRO Pai ea o lora Ea Ve "* V(23% 
0 SOOPirararararararaaraa » d G 2 
FOR |=1 TO 31 d 
0roR i! TO 2 9n E: Zoe dea car m mes 
20 G0 TO 380 
60 NEXT J A 
Do E adr A 0 420 LET IC = IC +1 
SO se 430 LET a = 0: DM Gia) 
DOOR a 10 oii 72: Pine aacevt | 450 X0)- VO THNLETa-a+tLETa)-8 
O er MASTER NEXT | 460 i a Sea iata 
Ze pif: calarie lagar ta dal AO Ea ai. 00 10 560 9 ; 
130 PRINT AT 210; "(31%)" incercati 0 
zeu Y 490 FOR J=-1 TO4 >>>>>>> 


.......... ...... ... .. . . . c.c.cccncccccocooeoossevevesesenacecaceconoecesoee 


E 


ia! 
N 
o 


E INKEYV$=""" THEN GO TO 570 
F INKEV$ - "DD" THEN GO TO 360 
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[voteze arata 


4) -$XYV,J 


222 


BREAK 


CAROL SZABO 
LICEUL SFINTU SAVA 


Vreți să spargeţi orice program, fie «i și cu 
SPEED-A OCK? 

Atunci cumpărați-vă un CP sau un COBRA. 

Vă propun următoarele modificări față de ROM-u 
standard de Spectrum 

Dispunind de acest ROM modificat puteţi să salvaţi 
regișui _microprocesoruti și  coniranul învregi 
memorii RAM făcind legătura între pinul 'NM' de pe 
extensie și un punct de masă. 

Pînă acum nu am găsit program să reziste la aşa 


( ATENTE ! - WORIKCSP reprezintă sfirșitul unei zone de 
lucru unde vor fi salvaţi regiștrii microprocesoruli 
Recomand utiizarea în acest scop a memoriei video. 
WORICSP = 4A47FE) 
- acest program se compune din două părți 

= prima parte peste rutina de NM la 10066 

= a doua parte într-un spațiu iber 

(ex: de la 4386E) 





RELUAM 


ORG 10066 
JP  H386E 


ORG 1t386E 
LD (WORKSP), SP 
LD SP, WORKSP 
PUSH AF 
PUSH HL 
PUSH DE 
PUSH BC 

EX AF, AF' 
EXX 

PUSH AF 
PUSH HL 
PUSH DE 
PUSH BC 
PUSH IX 
PUSH IY 

LD A,I 

PUSH AF 

LD IX, 44000 
LD DE, 41B00 
LD A, 4FF 
CALL 44C6 
DEC IX 

LD DE. 45280 
DEC A 

CALL 44C6 
DEC IX 

LD DE, 45280 
DEC A 

CALI. 4406 


JR RELUAM 


(ASR AS CAS DIA DLCODA Eai 
provd!y presents 


COMMOLTENIA mini - COMPUTER 
Type |.BAM. - PS2” LAPTOP (LA fitatr lode(Peroţile) 
Usable with CD-ROM ype Letea SA. 
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"Domnilor eu nu mă consider 
abonat și nu vreau să-mi mai 
trimiteţi acasă revista. 

Mă costă 15 lei în plus și 45 
minte pentru ridicare de ia 
birocratica și f. f. lenta poştă 
romenă + î milion de celule 
neuronale consumate inutii. 

Prefer să-l! cumpăr de ia 
difuzorii voluntari. 

A doua problemă; doresc un 
anunț ia revistă (în) 

“Vind compatibil Spectrum 


anție preț 
: 876314. Vind 
jocuri şi utilitare Spectrum 
îi uiti număr cam bateți 
piuă, chiar dacă 
prezentarea grafică se află 
ntr-un real progres şi ați (|) 
ajuns la o dimensiune normală 
(aprox:format A4) 


Salut, * 
***Matei George Cristian”"** 
București 


Adrian Teodorescu - Str. Sitei 
nr 6, Brașov 2200 


Din păcate, soft pernru Apple î nu 
avem (încă) 

Să strigăm poate ne 
aude cineva il 


....... .. .........ccncncnceneneneseneneeensenecenonoeneneeeeneeseeeeenenseo.. 
............... . ...ccccccccconooeooeascocoeoevoevesenescoceceocoeetateecooo.c.o.e. 


Punta Pama 





= sc a s 
= Guardian Angel * * * * 
E Rimthe Game * * . + 
3 Soccer Double i DL 0 
zOAawuoCcomba e * - 
” Te rog comunică-i prietenului = Quatro Advemure * = + - 
Valer din Deva că-i pot 2 Shadow Warrior = * * 
oferi programul “CW' care = Pro Boxing . „. . - 
este un “decodificator și un = Rastan fe A 
codificator de mesaje morse. = Quattro Super . . . 
Adresa mea este: 2 Paperboy . . . 
Stingu Corneliu = Hong Kong = * * = 
Post Restant OP.1 Buzău" = TheMnsters . . . " 
S-a făcut. Si musțumesc. ZBacktotheFuure * + + + 
= Yog'sGtEscape * + * * 
2 Salamander 0 RR ari păi i 
(n dă sp app — Dizzy . . . 1 
Stanciu Alec, St rcujeri n E Ro ete a. . . 
Blat?, sc:5, ap53, București = Match Day 2 a... . . 
are un Spectrum + 2 fără = INT . . . 
documentație. 2 Wombies - . . - 
Poate cineva să- ajute ? = 


* Cu putea tasta, iar E 
apoi Pr pg Ap blocuri în cod 2 = ss - Spectrum 


mașină cu un listing de forma: = C - Commodore 
46520 CD 72 B6 C5 CD E2 85 £ 2 A — Amstrad 
aeszo S0 ps o 7c Be cr oSS - Atari ST 


Cristinel Cenuşă - Rădăuți 





* Am nevoie de 


* bani, fapt = : 
eri Sia ere iti 2 IMPORTANT 


ceva, pr nu pipi bila Fox, avem oarece necazuri cu 
aa olane lee ai a a a ide a Că 
SI roaan pha.. o singură expediţie, se ridică cam 
la 20 lei Atunci cind apare, revista 
Te-aș ruga sămi scrii o sg găsi pl pr Universități, 
despre cum se folosesc ţa Romană rr ar pf 
numerele care sint asociate firma_MADRAL unde diuz 
progpgmela de, în uri Ci “scum vest 
j ricks in numerele 
2Paprilie şi 3/funie î acum vestea 
eu le-am folosit cu dar 


roasfa | catorita costau 


mu au dat nici un rezultat. 
Pemru a făce mai bine înțeles 


-"T3 


ridicat al hirtiei, ne cerem sauze 

dau un exemplu: j = 
POKE 23355230: LOAD * “E tuturor A edr head noștri, dar va 
Programul s-a încărcat şi a Webui majorăm td 
rulat normal fără vieţi infinte.” dei ra cu numărul Vitor. Asta 

vut vieţi este!!! 
Norme nu d A cui e Oricum, sper să ne vedem cit de 
imroduce DUPA ce ai încărcat la 
programul : 


a 
2ă 
pe re eee Cert 
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documenta ți 
Atari 65 XE (800 XL) 
tet 37.57.98 


Schimb programe pentru 
tru 


Spec 

George Clobânaru 
Caut documentație hard | Str. Gh Doja nr.3 
pentu  micro-calculator | BL3, ap6 
Jasmin Dorohoi - 6850 
produs 1986. 
tet 30.54.43 


Căutăm posesori de 
noutăți (C/D originale) 
pentru  C64. Oferim 


calculatoare compatible | jocui echivalente la 
schimb. 
tei 79.57.42 





Spectrum și 

pentru schimb de idei și | Vind urgent calculator 

proorame,. HC-85 în perfectă stare 
ăiă Adrian de funcționare. 15000 lei 

sat Lopătăreasa tet 87.52.59 n 14-17 

com Bi jud. Buzău 














23 PENDEREL ST., BLOXWICH 2 Caut orice programe le copiere 
WAKSALL, WEST  MDLANDS, = pentru Schimb 
WNS3-3D2, ENGLAND = programe Spectrum 48 si 128. 


cutie, joystick cu auto-fire, 
Nicolae tet 773334  d18 
Str. Primăverii 10A _— —. 
Tulcea - 88300 Vind jocuri Spectrum și 
eventual 
tet 657868 - Cristian 

SPE UM 2 ULTIMA ORA 

aa tinta tată Muainana 2 CUROI „cite Un exemplar 
SPECTRLM 48/1280 OWNER = tei: 10.66.33 Cristi 
FROM INDIA, WANT TO SWAP = 
GAMES AND UTLITES. SEND = Caut urgent FORTH pe Specir. 
YOUR LIST TO: = Ofer ia cf 
MOHAMMAD ANZI, VGA. 2 OCOL a UT OR 

ROAD, BEHIND MARATHA MANDIR, = Bd N Balcescu, BLC, ap.55 
BOMBAY —400 QUB INDIA = Deva - 2700 

LII LILI LL LL 

TWO GIRLS VASHING TO SWAP 2 Cumpar softpentruC +4. 
SOFT: , = Ofer gratuit sau schimb 
FAY SPRAYG = prograine pentru Spectrun si 
15 HÂML TON ST. BLOXMCH PC. 

WAKSALL, WEST  MDLANDS, == Gheori 

WS3-3DZ, ENGLAND = Str. Cluj nr.2, cam6 
AEROEENECIENEOSEUDIRERARILI 2 Meias — 3125 

NBOMY SURE T = 





91 Eventual schimb 
HC-90 cu Commodore 
64/cas, documentație. 


tet 973/14242 - Mhai 


II RGEN TI 

Vind Commodore 64 
defect (sau piese), 
casetofon C64, alimen- 
tator, toate la un loc sau 


LA 
tet 981/49645 
Vind miantă 
Commodore MPS 1200. 
tet 742860 


vind calculator Atari 800 | 
XL, unitate de disc 5, 





tet 985/24345 

Cumpăr UA GC-O0E-7 

tei 921/68977 

Cumpăr urgent SD 

tet 22.15.34 

Cumpăr joystick (2000 

iei placă tastatură 
(HC 90) + 











corespondez cu fani 
spectirun, C +4, PC. Ofer 
gratuit sau la schimb 
programe, JOCU, 
documentație PC şi 


d Pi i a ROCII e 





Cumpăr carcasă HC sau 


Cobra. 
tet 7995.12  dî7 


Vind soft PC + C64 utilitare si 
jucuri bestiale (B3-9D la uretu- 


rile Dus. 
ia ctutr ut. Metaă-Cat 





ACEY 


10 REM —o ACEY —— scris pentru 
BM-PC 

20 REM — Autor : Dobria Mire — 
Bucuresti coma 

30 0,1 :COLOR 
=) PRINT " ACEY DUCEY“ 


r33=CLS:PRINT 
40 FOR E=1 TO 6-COLOR 16*RND,05 
SOUND 100%E,ENEXT COLOR 7.3.3 -PRINI 
COLOR 1,3-PRINT 


70 PRINT “cu fata în sus, Puteți paria sau 
nu o sumă oarecare in fimctie de" 

PRINT "o a treia carte ascunsa (cu fata 
î - soti i trebuie" 


ASăgez 2858 

iu 

iai E 

foste si 
Ba See 
za e5i 
: 


Â 


TEAgIA 
EEE 
ee 


o sUsagauuea 
ELE 

=F-(- dz3 
fi 


Vă 


EEE 
LL ELE 
Să 
E i i 


: 
i 


SEL LELEU 


sii 
d535 


: 


S6a „83 
Et pe 
eng 
A 


: 
g 
> 


MEGA LISI 


AVETI DECIT ="205" $."-SOUND 7500, H_OCATE 


N-i 
620 COLOR 0,3-60T0 550 
630 C=INT(14%RND(7)) + 2 


socsaea 
255 
dăaaaae 


3 agăăga 
gara 
"gag eg seg 

Ş 

ş 

: 


23 
8 
Ş 


Se 
şa 
mă 
23 
SE 


OR 16*NND,0,5*RND: 


sase 
E3E 
a . 


VA 


O 


Spectrum 

Sef de caractere 
NR. HEX MNE. 
00 Hi 

01 00 LD DE, FCOOA 
02 FC 

03 D5  PUSHDE 

04 2i 

05 00 LD H_, 2004 
06 3D 

07 O1 

08 00 LD BC, 03004 
09 03 

1 7E LD AH) 

H i si 

4 B6  ORQ) 

ij e LD (DE), A 

44 23 NCH 

15 8 INC DE 

+6 0B  DECBC 

17 7B LD A,B 

18 Bi OR C 

==] 20 

20 F5 JR NZF5A 
21 Di POP DF 

22 145 DEC D 

23 ED 

24 53 

25 30  LD(23606)DE 
26 SE 

27 C9 RET 


Spa inăă e jazetafauo-2onăi 


*** Aztila Berecz"*** — 
Negreşti-Oaș 





Un singur TALON, vă asigură 
primirea la timp si prompt a 


revistei. 


ACUM ESTE MOMENIUL ! 


DA, doresc să primesc in conti- 
nuare revista pe adresa: 


NUME 


e — 





< ——————————————— ————— 


Ptata se face ramburs, la primire. OK? 









60 NPUT “ador. modif; , acid 
70 INPUT "cont. nnou'” , cont 
80 POKE 50050, cont 
90 POKE 50051, adr - 
PL 256"NT(addr /256) 
5 REM JOC 100 POKE 50052, NT (ada /256) 
PL reale scap 120 RANDOMIZE USR 50000 
oaie dn mo A Re me 
ra 140 Q0 TO 60 


si 
ii 
gi 


Y) THEN BEEP: 
“Al PIERDUT”: END 
60 PSET(TV. O=T:P-Y:  FY<9 
THEN PRNT “A OSTGAT F! 
20 CS 
să discul dec, 30 FORK = 0 TO 255PLOT K,0 
elev / Lic. | CREANGA air ad a 
70 PLOT 0, : DRAW 258, 175 2 
OT 0,K: 
mite um ue m 80 NEXT K 
Si inca ceva: 
POKE 23658, + CLS 
Spectrum sata sai 
Semnatura += Gabriel Siliont=* 
Birlad 
9 LET ad =4P3t LET suma=0 
RESTORE: CLEAR 41230 


20 FORi=1 TO 6F 






NEXT i 
T, 


